Option Explicit
Sub F_Sample018()
    'Microsoft ActiveX Data Objects 2.X Library ]wޥζ
    'ոF_Data.mdb F_Tbl01
    Dim myCon      As New ADODB.Connection
    Dim myRst      As New ADODB.Recordset
    Dim myFileName As String
    Dim myTblName  As String
    Dim i          As Long
    Worksheets.Add
    myFileName = "F_Data.mdb"                           'ŪJɮ
    myTblName = "F_Tbl01"                               'ŪJ
    'wѪ̦r
    myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=" & ThisWorkbook.Path & "\" & myFileName & ";"
   '}Ҹƿ
    myRst.Open Source:=myTblName, _
                ActiveConnection:=myCon, _
                CursorType:=adOpenForwardOnly, _
                LockType:=adLockReadOnly, _
                Options:=adCmdTableDirect
    With myRst
        'W
        For i = 1 To .Fields.Count
            Cells(1, i).Value = .Fields(i - 1).Name
        Next
        'O
        Range("A2").CopyFromRecordset myRst
        .Close
    End With
    myCon.Close
    Set myRst = Nothing    '
    Set myCon = Nothing
End Sub
